home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / FORTH / FORTHMAC / OLD / TOOLS1 / !Forthmacs.lib.compatible < prev    next >
Text File  |  1996-06-14  |  3KB  |  96 lines
  1. \ This file includes all aliases and extra definitions removed from
  2. \ the original RISC OS Forthmacs sources.
  3. \ Use it for compatibilty reasons or cross-developing hs23.10.94
  4. \ assumes 32-bit Forth
  5. \ NEW words defined UP-compatible
  6.  
  7. \needs evaluate        alias evaluate eval
  8. \needs eval        alias eval evaluate
  9. \needs string-load    alias string-load evaluate
  10. \needs /cell        4 constant /cell
  11. \needs /char        1 constant /char
  12. \needs cell+        : cell+        /cell + ;
  13. \needs char+        : char+        /char + ;
  14. \needs cells        : cells        /cell * ;
  15. \needs chars        : chars        /char * ;
  16. \needs cells+        : cells+    cells + ;
  17. \needs chars+        : chars+    chars + ;
  18. \needs ?exit        : ?exit        postpone if  postpone exit  postpone then ; immediate
  19. \needs @execute        : @execute      @ execute ;
  20. \needs compile,        alias compile,  token,
  21. \needs (compile)    alias (compile) token,
  22. \needs compile        alias compile do-postpone
  23. \needs postpone        : postpone ' dup immediate? 0= if ['] do-postpone compile, then compile, ; immediate
  24. \needs "        alias " c"
  25. \needs c"        alias c" "
  26.  
  27. \needs rshift        alias rshift >>
  28. \needs lshift        alias lshift <<
  29. \needs acf-aligned    alias acf-aligned aligned
  30. \needs taligned        alias taligned    aligned
  31. \needs acf-align    alias acf-align align
  32. \needs talign        alias talign    align
  33.  
  34. \needs dumpx        : dumpx        blword 10 dump ; \ name (s -- )
  35. \needs d#        alias d# td
  36. \needs h#        alias h# th
  37.  
  38. \needs alloc-mem    : alloc-mem allocate abort" Can't allocate" ;
  39. \needs free-mem         : free-mem over block-size over > if negate over block-size + resize nip else drop free then abort" Couldn't free-mem" ;
  40.  
  41. \needs ascii        : ascii     blword char+ c@  do-literal ; immediate
  42. \needs char             : char     blword char+ c@ ;
  43. \needs [char]        : [char] char do-literal ; immediate
  44. \needs td        alias td d#
  45. \needs th        alias th h#
  46. \needs n>flags        : n>flags  count + ;
  47. \needs >>a        : >>a        0 ?do 2/ loop ;
  48. \needs >>        alias >> rshift
  49. \needs <<        alias << lshift
  50. \needs ctoggle        : ctoggle    ( mask addr -- )    toggle ;
  51. \needs u*d        : u*d        (s u u -- ul )        *  ;
  52.  
  53. \needs \itc        : \itc        ( -- )    postpone \    ; immediate
  54. \needs \dtc        : \dtc        ( -- )            ; immediate
  55. \needs \ttc        : \ttc        ( -- )    postpone \    ; immediate
  56. \needs \t8        : \t8        ( -- )    postpone \    ; immediate
  57. \needs \t16        : \t16        ( -- )    postpone \    ; immediate
  58. \needs \t32        : \t32        ( -- )            ; immediate
  59.  
  60. \needs 32\        : 32\  ; immediate
  61. \needs 16\        alias 16\ \
  62.  
  63. \needs filec!        alias filec! file!
  64. \needs filec@        alias filec@ file@
  65. \needs read-write    alias read-write modify
  66. \needs getword        alias getword fgetword
  67. \needs getcword        alias getcword fgettill
  68. \needs skipcword    alias skipcword fskiptill
  69. \needs close        alias close fclose
  70. \needs open        alias open fopen
  71.  
  72. \needs na1+        alias na1+ cell+
  73. \needs ta1+        alias ta1+ cell+
  74. \needs ca1+        alias ca1+ char+
  75. \needs /c        alias /c /char
  76. \needs /n        alias /n /cell
  77. \needs /a        alias /a /cell
  78. \needs /branch        alias /branch /cell
  79. \needs /c*        alias /c* noop
  80. \needs /n*        alias /n* cells
  81. \needs na+        alias na+ cells+
  82. \needs ca+        alias ca+ chars+
  83.  
  84. \needs n->a        alias n->a noop
  85.  
  86. \needs n!        alias n!    !
  87. \needs \c        alias \c    \
  88.  
  89. : at-xy            swap at ;
  90. : at-xy?        at? swap ;
  91.  
  92.  
  93. needs lconstant extend.portab32
  94. needs wconstant    extend.portab16
  95.  
  96. \needs save-string  d# 260 buffer: string2  : save-string string2 "move ;